Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists("c:\Folder")) Then
    msgbox("Folder istnieje.")
Else
    msgbox("Folder nie istnieje.")
End If
